<% 	option explicit
	'response.buffer = true
	dim startime
	dim conn
	dim connstr
	startime=timer()
%>
<!--#include file="#cc" -->
<!--#include file="#" -->
<%
	ConnectionDatabase
	Sub ConnectionDatabase
	Dim ConnStr
	ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)& ";Jet OLEDB:Database Password=chenvbn;"
	'ķýϰ汾Accessӷ
	'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		CloseDatabase
		Response.Write "ҳԺʣ"
		Response.End
	End If
	End Sub	

Sub CloseDatabase
	Conn.close
	Set conn = Nothing
End Sub

dim hx
set hx=new cls_smt_cn
dim hxcache
set hxcache=new cls_ms
hxcache.CacheName="smt_cn"
hxcache.Name="js"
hxcache.Reloadtime=CacheTime

Dim SqlNowString
If IsSqlDataBase = 1 Then
	SqlNowString = "GetDate()"
Else
	SqlNowString = "Now()"
End If
%>
<!-- #include file="#class" -->